home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / turbotut.arc / READARRY.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-06-30  |  617 b   |  21 lines
  1. PROGRAM read_into_an_array;
  2.  
  3. VAR index : INTEGER;
  4.     place : ARRAY[1..10] OF CHAR;
  5.  
  6. BEGIN
  7. FOR index := 1 TO 5 DO
  8. BEGIN
  9.   WRITE('Enter up to 10 characters ');
  10.   READLN(place);
  11.   WRITELN('The data you entered was (',place,')');
  12. END;
  13. END.
  14.       (* Note; This file will not compile properly
  15.          with TURBO Pascal 2.0. It will work as
  16.          stated with TURBO Pascal 3.0 and with most
  17.          other compilers, since it is written in
  18.          standard Pascal. To make it work with TURBO
  19.          Pascal 2.0, change the ARRAY in line 4 to
  20.          a STRING[10].                              *)
  21.